home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch10.macromedia / spot.dcr / 00042.ls < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.1 KB  |  45 lines
  1. global gCounter, gStartTime, gPicOffset, gNumOTimes, gSlotsFlag, cSlotOffset, cBlurCastOffset, cBlurCastOffset2
  2.  
  3. on mouseUp
  4.   set gNumOTimes to gNumOTimes + 1
  5.   if gNumOTimes = 2 then
  6.     set gStartTime to the ticks
  7.     set gCounter to 0
  8.     set gPicOffset to 37
  9.     repeat with t = 1 to 4
  10.       reset(getAt(gSlotObjList, t))
  11.       set the castNum of sprite (t + cSlotOffset) to t + cBlurCastOffset
  12.     end repeat
  13.     updateStage()
  14.     go("start")
  15.     exit
  16.   end if
  17.   if gNumOTimes = 3 then
  18.     set gStartTime to the ticks
  19.     set gCounter to 0
  20.     set gPicOffset to 57
  21.     repeat with t = 1 to 4
  22.       resetForSlots(getAt(gSlotObjList, t))
  23.       set the castNum of sprite (t + cSlotOffset) to t + cBlurCastOffset2
  24.     end repeat
  25.     updateStage()
  26.     set gSlotsFlag to 1
  27.     go("PlaySlots")
  28.     exit
  29.   end if
  30.   if gNumOTimes > 3 then
  31.     set gStartTime to the ticks
  32.     set gCounter to 0
  33.     repeat with t = 1 to 4
  34.       reset(getAt(gSlotObjList, t))
  35.       set the castNum of sprite (t + cSlotOffset) to t + cBlurCastOffset
  36.     end repeat
  37.     updateStage()
  38.     set gPicOffset to 22
  39.     set gNumOTimes to 1
  40.     set gSlotsFlag to 0
  41.     go("start")
  42.     exit
  43.   end if
  44. end
  45.